inherited frmCadTranspEra: TfrmCadTranspEra
  Left = 247
  Top = 115
  Width = 767
  Height = 494
  Caption = 'Transporte de Eras'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TcxPageControl
    Width = 751
    Height = 430
    ActivePage = tbsEdita
    ClientRectBottom = 425
    ClientRectRight = 746
    inherited tbsLista: TcxTabSheet
      inherited Grid: TcxGrid
        Width = 741
        Height = 380
        PopupMenu = PopupMenu1
        inherited GridDBBandedTableView2: TcxGridDBBandedTableView
          object GridDBBandedTableView2CODIGO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'CODIGO'
            Position.BandIndex = 0
            Position.ColIndex = 0
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2PROPRIEDADE: TcxGridDBBandedColumn
            DataBinding.FieldName = 'PROPRIEDADE'
            Position.BandIndex = 0
            Position.ColIndex = 1
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2DATA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'DATA'
            PropertiesClassName = 'TcxDateEditProperties'
            Position.BandIndex = 0
            Position.ColIndex = 2
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2ANO_BASE: TcxGridDBBandedColumn
            DataBinding.FieldName = 'ANO_BASE'
            Position.BandIndex = 0
            Position.ColIndex = 3
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2FECHADA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'FECHADA'
            PropertiesClassName = 'TcxCheckBoxProperties'
            Properties.ValueChecked = 'S'
            Properties.ValueUnchecked = 'N'
            Width = 42
            Position.BandIndex = 0
            Position.ColIndex = 4
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2PROPRIEDADE_NOME: TcxGridDBBandedColumn
            DataBinding.FieldName = 'PROPRIEDADE_NOME'
            Position.BandIndex = 0
            Position.ColIndex = 5
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2OPERACAO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'OPERACAO'
            Position.BandIndex = 0
            Position.ColIndex = 6
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2OPERACAO_NOME: TcxGridDBBandedColumn
            DataBinding.FieldName = 'OPERACAO_NOME'
            Position.BandIndex = 0
            Position.ColIndex = 7
            Position.RowIndex = 0
          end
        end
      end
      inherited Panel1: TPanel
        Width = 741
      end
    end
    inherited tbsEdita: TcxTabSheet
      inherited Panel2: TPanel
        Width = 741
        Height = 397
        object pnlLancto: TPanel
          Left = 1
          Top = 1
          Width = 739
          Height = 128
          Align = alTop
          BevelOuter = bvNone
          PopupMenu = PopupMenu1
          TabOrder = 0
          OnEnter = pnlLanctoEnter
          object edtCodigo: TcxDBTextEdit
            Left = 7
            Top = 31
            TabStop = False
            DataBinding.DataField = 'CODIGO'
            DataBinding.DataSource = dsRegistro
            Properties.ReadOnly = True
            Style.Color = clInactiveBorder
            TabOrder = 0
            Width = 65
          end
          object cxLabel1: TcxLabel
            Left = 7
            Top = 14
            Caption = 'C'#243'digo'
            Transparent = True
          end
          object cxLabel6: TcxLabel
            Left = 73
            Top = 15
            Caption = 'Propriedade'
            Transparent = True
          end
          object cbPropriedade: TcxDBLookupComboBox
            Left = 73
            Top = 31
            DataBinding.DataField = 'PROPRIEDADE'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            Properties.KeyFieldNames = 'CODIGO'
            Properties.ListColumns = <
              item
                FieldName = 'NOME'
              end>
            Properties.ListSource = dsPropriedade
            TabOrder = 1
            Width = 287
          end
          object btnPropriedade: TcxButtonEdit
            Left = 359
            Top = 31
            TabStop = False
            Properties.Buttons = <
              item
                Caption = 'F9'
                Default = True
                Kind = bkText
              end>
            Properties.ViewStyle = vsButtonsOnly
            TabOrder = 7
            Text = 'btnLogradouro'
            OnClick = btnPropriedadeClick
            Width = 25
          end
          object cxDBSpinEdit1: TcxDBSpinEdit
            Left = 8
            Top = 71
            DataBinding.DataField = 'ANO_BASE'
            DataBinding.DataSource = dsRegistro
            Properties.MinValue = 2000.000000000000000000
            TabOrder = 2
            Width = 79
          end
          object cxLabel5: TcxLabel
            Left = 8
            Top = 55
            Caption = 'Ano Base'
            Transparent = True
          end
          object cxDBDateEdit2: TcxDBDateEdit
            Left = 89
            Top = 71
            DataBinding.DataField = 'DATA'
            DataBinding.DataSource = dsRegistro
            TabOrder = 3
            Width = 88
          end
          object cxLabel16: TcxLabel
            Left = 87
            Top = 54
            Caption = 'Dt. Movimento'
            Transparent = True
          end
          object cxDBCheckBox5: TcxDBCheckBox
            Left = 187
            Top = 71
            Caption = 'Fechado'
            DataBinding.DataField = 'FECHADA'
            DataBinding.DataSource = dsRegistro
            Properties.ReadOnly = True
            Properties.ValueChecked = 'S'
            Properties.ValueUnchecked = 'N'
            TabOrder = 4
            Transparent = True
            Width = 73
          end
          object cbOperacao: TcxDBLookupComboBox
            Left = 385
            Top = 31
            DataBinding.DataField = 'OPERACAO'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            Properties.KeyFieldNames = 'CODIGO'
            Properties.ListColumns = <
              item
                FieldName = 'NOME'
              end>
            Properties.ListSource = dsOperacoes
            TabOrder = 10
            Width = 287
          end
          object cxLabel19: TcxLabel
            Left = 385
            Top = 14
            Caption = 'Opera'#231#227'o'
            Transparent = True
          end
          object btnOperacao: TcxButtonEdit
            Left = 671
            Top = 31
            TabStop = False
            Properties.Buttons = <
              item
                Caption = 'F9'
                Default = True
                Kind = bkText
              end>
            Properties.ViewStyle = vsButtonsOnly
            TabOrder = 12
            Text = 'btnOperacao'
            OnClick = btnOperacaoClick
            Width = 25
          end
        end
        object pnlSubCad: TPanel
          Left = 1
          Top = 129
          Width = 739
          Height = 267
          Align = alClient
          Caption = 'pnlSubCad'
          TabOrder = 1
          object PGCSub1: TcxPageControl
            Left = 1
            Top = 1
            Width = 737
            Height = 265
            ActivePage = tbsListaComp1
            Align = alClient
            TabOrder = 0
            ClientRectBottom = 260
            ClientRectLeft = 5
            ClientRectRight = 732
            ClientRectTop = 28
            object tbsListaComp1: TcxTabSheet
              Caption = 'Pesquisa'
              ImageIndex = 0
              OnEnter = tbsListaComp1Enter
              object cxGrid1: TcxGrid
                Left = 0
                Top = 0
                Width = 727
                Height = 232
                Align = alClient
                TabOrder = 0
                object cxGridDBTableView1: TcxGridDBTableView
                  NavigatorButtons.ConfirmDelete = False
                  NavigatorButtons.Insert.Visible = False
                  NavigatorButtons.Append.Enabled = False
                  NavigatorButtons.Delete.Visible = False
                  NavigatorButtons.Edit.Visible = False
                  NavigatorButtons.Post.Visible = False
                  NavigatorButtons.Cancel.Visible = False
                  NavigatorButtons.Refresh.Enabled = False
                  NavigatorButtons.Refresh.Visible = False
                  NavigatorButtons.SaveBookmark.Enabled = False
                  NavigatorButtons.SaveBookmark.Visible = False
                  NavigatorButtons.GotoBookmark.Visible = False
                  DataController.DataSource = dsPesquisaComp1
                  DataController.Summary.DefaultGroupSummaryItems = <>
                  DataController.Summary.FooterSummaryItems = <>
                  DataController.Summary.SummaryGroups = <>
                  OptionsBehavior.IncSearch = True
                  OptionsBehavior.NavigatorHints = True
                  OptionsCustomize.ColumnHiding = True
                  OptionsData.CancelOnExit = False
                  OptionsData.Deleting = False
                  OptionsData.DeletingConfirmation = False
                  OptionsData.Editing = False
                  OptionsData.Inserting = False
                  OptionsSelection.CellSelect = False
                  OptionsSelection.InvertSelect = False
                  OptionsSelection.UnselectFocusedRecordOnExit = False
                  OptionsView.Footer = True
                  OptionsView.FooterAutoHeight = True
                  OptionsView.GroupByBox = False
                  OptionsView.GroupFooters = gfAlwaysVisible
                  OptionsView.Indicator = True
                  Preview.Visible = True
                end
                object cxGrid1DBBandedTableView1: TcxGridDBBandedTableView
                  OnKeyDown = GridDBBandedTableView2KeyDown
                  NavigatorButtons.ConfirmDelete = False
                  DataController.DataSource = dsPesquisaComp1
                  DataController.Summary.DefaultGroupSummaryItems = <>
                  DataController.Summary.FooterSummaryItems = <>
                  DataController.Summary.SummaryGroups = <>
                  FilterRow.InfoText = 'Click here to define a filter'
                  NewItemRow.InfoText = 'Click here to add a new row'
                  OptionsView.Footer = True
                  OptionsView.GroupFooters = gfAlwaysVisible
                  OptionsView.BandHeaders = False
                  Bands = <
                    item
                    end>
                  object cxGrid1DBBandedTableView1CODIGO: TcxGridDBBandedColumn
                    DataBinding.FieldName = 'CODIGO'
                    Position.BandIndex = 0
                    Position.ColIndex = 0
                    Position.RowIndex = 0
                  end
                  object cxGrid1DBBandedTableView1QTDE: TcxGridDBBandedColumn
                    DataBinding.FieldName = 'QTDE'
                    Position.BandIndex = 0
                    Position.ColIndex = 1
                    Position.RowIndex = 0
                  end
                  object cxGrid1DBBandedTableView1PRODUTO1: TcxGridDBBandedColumn
                    DataBinding.FieldName = 'PRODUTO1'
                    Position.BandIndex = 0
                    Position.ColIndex = 2
                    Position.RowIndex = 0
                  end
                  object cxGrid1DBBandedTableView1PRODUTO2: TcxGridDBBandedColumn
                    DataBinding.FieldName = 'PRODUTO2'
                    Width = 93
                    Position.BandIndex = 0
                    Position.ColIndex = 3
                    Position.RowIndex = 0
                  end
                  object cxGrid1DBBandedTableView1TRANSPORTE_ERA: TcxGridDBBandedColumn
                    DataBinding.FieldName = 'TRANSPORTE_ERA'
                    Position.BandIndex = 0
                    Position.ColIndex = 4
                    Position.RowIndex = 0
                  end
                  object cxGrid1DBBandedTableView1ERA_ORIGEM: TcxGridDBBandedColumn
                    DataBinding.FieldName = 'ERA_ORIGEM'
                    Position.BandIndex = 0
                    Position.ColIndex = 5
                    Position.RowIndex = 0
                  end
                  object cxGrid1DBBandedTableView1ERA_DESTINO: TcxGridDBBandedColumn
                    DataBinding.FieldName = 'ERA_DESTINO'
                    Position.BandIndex = 0
                    Position.ColIndex = 6
                    Position.RowIndex = 0
                  end
                end
                object cxGridLevel1: TcxGridLevel
                  GridView = cxGrid1DBBandedTableView1
                end
              end
            end
            object tbsEditaComp1: TcxTabSheet
              Caption = 'Registro'
              ImageIndex = 1
              PopupMenu = PopupMenu1
              OnEnter = tbsEditaComp1Enter
              OnExit = tbsEditaComp1Exit
              object edtCodigoItem: TcxDBTextEdit
                Left = 8
                Top = 24
                TabStop = False
                DataBinding.DataField = 'CODIGO'
                DataBinding.DataSource = dsRegistroComp1
                Properties.CharCase = ecUpperCase
                Properties.ReadOnly = True
                Style.Color = clInactiveBorder
                TabOrder = 0
                Width = 65
              end
              object cxLabel8: TcxLabel
                Left = 8
                Top = 8
                Caption = 'C'#243'digo'
                Transparent = True
              end
              object cxDBCalcEdit3: TcxDBCalcEdit
                Left = 9
                Top = 64
                DataBinding.DataField = 'QTDE'
                DataBinding.DataSource = dsRegistroComp1
                Style.LookAndFeel.Kind = lfOffice11
                Style.ButtonStyle = btsFlat
                StyleDisabled.LookAndFeel.Kind = lfOffice11
                StyleFocused.LookAndFeel.Kind = lfOffice11
                StyleHot.LookAndFeel.Kind = lfOffice11
                TabOrder = 3
                Width = 106
              end
              object cxLabel2: TcxLabel
                Left = 9
                Top = 48
                Caption = 'Qtde'
                Transparent = True
              end
              object btnProduto: TcxButtonEdit
                Left = 359
                Top = 24
                TabStop = False
                Properties.Buttons = <
                  item
                    Caption = 'F9'
                    Default = True
                    Kind = bkText
                  end>
                Properties.ViewStyle = vsButtonsOnly
                TabOrder = 6
                Text = 'btnProduto'
                OnClick = btnProdutoClick
                Width = 25
              end
              object cbProduto: TcxDBLookupComboBox
                Left = 73
                Top = 24
                DataBinding.DataField = 'PRODUTO1'
                DataBinding.DataSource = dsRegistroComp1
                Properties.CharCase = ecUpperCase
                Properties.KeyFieldNames = 'CODIGO'
                Properties.ListColumns = <
                  item
                    FieldName = 'NOME'
                  end>
                Properties.ListSource = dsProdutos
                TabOrder = 1
                Width = 287
              end
              object cxLabel9: TcxLabel
                Left = 73
                Top = 8
                Caption = 'Era Origem'
                Transparent = True
              end
              object cbProduto2: TcxDBLookupComboBox
                Left = 385
                Top = 24
                DataBinding.DataField = 'PRODUTO2'
                DataBinding.DataSource = dsRegistroComp1
                Properties.CharCase = ecUpperCase
                Properties.KeyFieldNames = 'CODIGO'
                Properties.ListColumns = <
                  item
                    FieldName = 'NOME'
                  end>
                Properties.ListSource = dsProdutos
                TabOrder = 2
                Width = 287
              end
              object cxLabel3: TcxLabel
                Left = 385
                Top = 8
                Caption = 'Era Destino'
                Transparent = True
              end
              object btnProduto2: TcxButtonEdit
                Left = 671
                Top = 24
                TabStop = False
                Properties.Buttons = <
                  item
                    Caption = 'F9'
                    Default = True
                    Kind = bkText
                  end>
                Properties.ViewStyle = vsButtonsOnly
                TabOrder = 9
                Text = 'btnProduto'
                OnClick = btnProduto2Click
                Width = 25
              end
            end
          end
        end
      end
    end
  end
  object lstProdutos2: TIBQuery [1]
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from produtos p'
      
        'where p.exporta_dap = '#39'S'#39' and p.tipo_insumo = '#39'2'#39' and p.tipo = '#39 +
        'P'#39' and coalesce(p.ativo,'#39'S'#39') = '#39'S'#39)
    Left = 602
    Top = 280
    object lstProdutos2CODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTOS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstProdutos2NOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTOS"."NOME"'
      Size = 50
    end
    object lstProdutos2GRUPO: TIntegerField
      FieldName = 'GRUPO'
      Origin = '"PRODUTOS"."GRUPO"'
    end
    object lstProdutos2UNIDADE: TIntegerField
      FieldName = 'UNIDADE'
      Origin = '"PRODUTOS"."UNIDADE"'
    end
    object lstProdutos2VALOR: TFloatField
      FieldName = 'VALOR'
      Origin = '"PRODUTOS"."VALOR"'
    end
    object lstProdutos2ATIVO: TIBStringField
      FieldName = 'ATIVO'
      Origin = '"PRODUTOS"."ATIVO"'
      FixedChar = True
      Size = 1
    end
    object lstProdutos2TIPO: TIBStringField
      FieldName = 'TIPO'
      Origin = '"PRODUTOS"."TIPO"'
      FixedChar = True
      Size = 1
    end
    object lstProdutos2EXPORTA_DAP: TIBStringField
      FieldName = 'EXPORTA_DAP'
      Origin = '"PRODUTOS"."EXPORTA_DAP"'
      FixedChar = True
      Size = 1
    end
    object lstProdutos2INSUMOS: TIBStringField
      FieldName = 'INSUMOS'
      Origin = '"PRODUTOS"."INSUMOS"'
      FixedChar = True
      Size = 1
    end
    object lstProdutos2TIPO_INSUMO: TIBStringField
      FieldName = 'TIPO_INSUMO'
      Origin = '"PRODUTOS"."TIPO_INSUMO"'
      FixedChar = True
      Size = 1
    end
  end
  object cxGridPopupMenu1: TcxGridPopupMenu [2]
    Grid = cxGrid1
    PopupMenus = <
      item
        HitTypes = [gvhtCell, gvhtRecord, gvhtRowIndicator]
        Index = 0
      end>
    Left = 272
    Top = 288
  end
  object UPDTranspEra: TIBSQL [3]
    Database = dmPrincipal.Database
    SQL.Strings = (
      
        'update transporte_era t set t.fechada = :st where t.codigo = :co' +
        'digo')
    Transaction = dmPrincipal.Transaction
    Left = 598
    Top = 228
  end
  object PopupMenu1: TPopupMenu [4]
    Left = 312
    Top = 220
    object FecharTransportedeEra1: TMenuItem
      Action = ActFechaTranspEra
    end
    object EstornarTransportedeEra1: TMenuItem
      Action = ActEstTranspEra
    end
  end
  inherited dsPesquisa: TDataSource
    Left = 516
    Top = 312
  end
  inherited dsRegistro: TDataSource
    Left = 552
    Top = 312
  end
  inherited dtEdit: TIBDataSet
    BeforePost = dtEditBeforePost
    OnNewRecord = dtEditNewRecord
    DeleteSQL.Strings = (
      'delete from transporte_era'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into transporte_era'
      '  (ANO_BASE, CODIGO, DATA, FECHADA, OPERACAO, PROPRIEDADE)'
      'values'
      '  (:ANO_BASE, :CODIGO, :DATA, :FECHADA, :OPERACAO, :PROPRIEDADE)')
    RefreshSQL.Strings = (
      'Select * '
      'from transporte_era '
      'where'
      '  CODIGO = :CODIGO')
    SelectSQL.Strings = (
      'select t.* from transporte_era t'
      'where t.codigo = :codigo')
    ModifySQL.Strings = (
      'update transporte_era'
      'set'
      '  ANO_BASE = :ANO_BASE,'
      '  CODIGO = :CODIGO,'
      '  DATA = :DATA,'
      '  FECHADA = :FECHADA,'
      '  OPERACAO = :OPERACAO,'
      '  PROPRIEDADE = :PROPRIEDADE'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.Field = 'CODIGO'
    GeneratorField.Generator = 'GEN_TRANSPORTE_ERA_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 522
    Top = 280
    object dtEditCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"TRANSPORTE_ERA"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtEditPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
      Origin = '"TRANSPORTE_ERA"."PROPRIEDADE"'
    end
    object dtEditANO_BASE: TSmallintField
      FieldName = 'ANO_BASE'
      Origin = '"TRANSPORTE_ERA"."ANO_BASE"'
    end
    object dtEditFECHADA: TIBStringField
      FieldName = 'FECHADA'
      Origin = '"TRANSPORTE_ERA"."FECHADA"'
      FixedChar = True
      Size = 1
    end
    object dtEditDATA: TDateField
      FieldName = 'DATA'
      Origin = '"TRANSPORTE_ERA"."DATA"'
    end
    object dtEditOPERACAO: TIntegerField
      FieldName = 'OPERACAO'
      Origin = '"TRANSPORTE_ERA"."OPERACAO"'
    end
  end
  inherited dtList: TIBQuery
    SQL.Strings = (
      
        'select t.*, pp.nome propriedade_nome, op.nome operacao_nome from' +
        ' transporte_era t'
      'inner join propriedade pp on (pp.codigo = t.propriedade)'
      'left join operacoes op on (op.codigo = t.operacao)')
    Left = 485
    Top = 280
    object dtListCODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIGO'
      Origin = '"TRANSPORTE_ERA"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtListPROPRIEDADE: TIntegerField
      DisplayLabel = 'C'#243'd. Propriedade'
      FieldName = 'PROPRIEDADE'
      Origin = '"TRANSPORTE_ERA"."PROPRIEDADE"'
    end
    object dtListANO_BASE: TSmallintField
      DisplayLabel = 'Ano Base'
      FieldName = 'ANO_BASE'
      Origin = '"TRANSPORTE_ERA"."ANO_BASE"'
    end
    object dtListFECHADA: TIBStringField
      DisplayLabel = 'Fechada'
      FieldName = 'FECHADA'
      Origin = '"TRANSPORTE_ERA"."FECHADA"'
      FixedChar = True
      Size = 1
    end
    object dtListPROPRIEDADE_NOME: TIBStringField
      DisplayLabel = 'Propriedade'
      FieldName = 'PROPRIEDADE_NOME'
      Origin = '"PROPRIEDADE"."NOME"'
      Size = 50
    end
    object dtListDATA: TDateField
      FieldName = 'DATA'
      Origin = '"TRANSPORTE_ERA"."DATA"'
    end
    object dtListOPERACAO: TIntegerField
      DisplayLabel = 'C'#243'd. Opera'#231#227'o'
      FieldName = 'OPERACAO'
      Origin = '"TRANSPORTE_ERA"."OPERACAO"'
    end
    object dtListOPERACAO_NOME: TIBStringField
      DisplayLabel = 'Opera'#231#227'o'
      FieldName = 'OPERACAO_NOME'
      Origin = '"OPERACOES"."NOME"'
      Size = 50
    end
  end
  inherited dxBarManager: TdxBarManager
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    DockControlHeights = (
      0
      0
      0
      26)
    inherited dxBarManager1Bar1: TdxBar
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarDBNavFirst1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavPrior1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavNext1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavLast1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavInsert1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavDelete1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavEdit1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavPost1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavCancel1'
        end
        item
          Visible = True
          ItemName = 'dxBarDBNavRefresh1'
        end
        item
          Visible = True
          ItemName = 'btnCustomizar'
        end
        item
          Visible = True
          ItemName = 'btnexportar'
        end
        item
          Visible = True
          ItemName = 'btnContrair'
        end
        item
          Visible = True
          ItemName = 'btnExpandir'
        end
        item
          Visible = True
          ItemName = 'btnImprimir'
        end
        item
          Visible = True
          ItemName = 'btnConfigRel'
        end>
    end
    inherited btnImprimir: TdxBarButton
      Action = ActImprimir
    end
    object btnConfigRel: TdxBarButton [11]
      Action = ActConfigRel
      Category = 0
    end
  end
  inherited ActionList1: TActionList
    Left = 336
    Top = 84
    inherited ActCadLookup: TAction
      OnExecute = ActCadLookupExecute
    end
    inherited ActImprimir: TAction
      ImageIndex = 34
    end
    object ActConfigRel: TAction
      Caption = 'ActConfigRel'
      ImageIndex = 26
    end
    object ActFechaTranspEra: TAction
      Caption = 'Fechar Transporte de Era'
      OnExecute = ActFechaTranspEraExecute
    end
    object ActEstTranspEra: TAction
      Caption = 'Estornar Transporte de Era'
      OnExecute = ActEstTranspEraExecute
    end
  end
  inherited dsLink: TDataSource
    Left = 408
    Top = 312
  end
  inherited cxImageList1: TcxImageList
    FormatVersion = 1
  end
  inherited SaveDialog: TSaveDialog
    Left = 560
    Top = 280
  end
  inherited cxPropertiesStore: TcxPropertiesStore
    Components = <
      item
        Component = cxGrid1
        Properties.Strings = (
          'Align'
          'Anchors'
          'BevelEdges'
          'BevelInner'
          'BevelKind'
          'BevelOuter'
          'BevelWidth'
          'BorderStyle'
          'BorderWidth'
          'Constraints'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'DragOpening'
          'DragOpeningWaitTime'
          'Enabled'
          'Font'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'Left'
          'LevelTabs'
          'LookAndFeel'
          'Name'
          'ParentFont'
          'PopupMenu'
          'RootLevelOptions'
          'RootLevelStyles'
          'TabOrder'
          'TabStop'
          'Tag'
          'Top'
          'Visible'
          'Width')
      end
      item
        Component = cxGrid1DBBandedTableView1
        Properties.Strings = (
          'BackgroundBitmaps'
          'Bands'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end
      item
        Component = cxGrid1DBBandedTableView1CODIGO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGrid1DBBandedTableView1ERA_DESTINO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGrid1DBBandedTableView1ERA_ORIGEM
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGrid1DBBandedTableView1PRODUTO1
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGrid1DBBandedTableView1PRODUTO2
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGrid1DBBandedTableView1QTDE
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGrid1DBBandedTableView1TRANSPORTE_ERA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1
        Properties.Strings = (
          'BackgroundBitmaps'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end
      item
        Component = Grid
        Properties.Strings = (
          'Align'
          'Anchors'
          'BevelEdges'
          'BevelInner'
          'BevelKind'
          'BevelOuter'
          'BevelWidth'
          'BorderStyle'
          'BorderWidth'
          'Constraints'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'DragOpening'
          'DragOpeningWaitTime'
          'Enabled'
          'Font'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'Left'
          'LevelTabs'
          'LookAndFeel'
          'Name'
          'ParentFont'
          'PopupMenu'
          'RootLevelOptions'
          'RootLevelStyles'
          'TabOrder'
          'TabStop'
          'Tag'
          'Top'
          'Visible'
          'Width')
      end
      item
        Component = GridDBBandedTableView1
        Properties.Strings = (
          'BackgroundBitmaps'
          'Bands'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end
      item
        Component = GridDBBandedTableView2
        Properties.Strings = (
          'BackgroundBitmaps'
          'Bands'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end
      item
        Component = GridDBBandedTableView2ANO_BASE
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2CODIGO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2DATA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2FECHADA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2OPERACAO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2OPERACAO_NOME
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2PROPRIEDADE
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2PROPRIEDADE_NOME
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridLevel1
        Properties.Strings = (
          'Caption'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'GridView'
          'ImageIndex'
          'MaxDetailHeight'
          'Name'
          'Options'
          'Styles'
          'Tag'
          'Visible')
      end>
  end
  object dtListComp1Itens: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    DataSource = dsRegistro
    SQL.Strings = (
      
        'select t.*, p1.nome era_origem, p2.nome era_destino from transpo' +
        'rte_era_itens t'
      'left join produtos p1 on (p1.codigo = t.produto1)'
      'left join produtos p2 on (p2.codigo = t.produto2)'
      'where t.transporte_era = :codigo')
    Left = 336
    Top = 280
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object dtListComp1ItensCODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIGO'
      Origin = '"TRANSPORTE_ERA_ITENS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtListComp1ItensQTDE: TIntegerField
      DisplayLabel = 'Qtde'
      FieldName = 'QTDE'
      Origin = '"TRANSPORTE_ERA_ITENS"."QTDE"'
      DisplayFormat = '###,##0.00'
    end
    object dtListComp1ItensPRODUTO1: TIntegerField
      DisplayLabel = 'C'#243'd. Era Origem'
      FieldName = 'PRODUTO1'
      Origin = '"TRANSPORTE_ERA_ITENS"."PRODUTO1"'
    end
    object dtListComp1ItensPRODUTO2: TIntegerField
      DisplayLabel = 'C'#243'd. Era Destino'
      FieldName = 'PRODUTO2'
      Origin = '"TRANSPORTE_ERA_ITENS"."PRODUTO2"'
    end
    object dtListComp1ItensTRANSPORTE_ERA: TIntegerField
      DisplayLabel = 'C'#243'digo Transp. Era'
      FieldName = 'TRANSPORTE_ERA'
      Origin = '"TRANSPORTE_ERA_ITENS"."TRANSPORTE_ERA"'
    end
    object dtListComp1ItensERA_ORIGEM: TIBStringField
      DisplayLabel = 'Era Origem'
      FieldName = 'ERA_ORIGEM'
      Origin = '"PRODUTOS"."NOME"'
      Size = 50
    end
    object dtListComp1ItensERA_DESTINO: TIBStringField
      DisplayLabel = 'Era Destino'
      FieldName = 'ERA_DESTINO'
      Origin = '"PRODUTOS"."NOME"'
      Size = 50
    end
  end
  object dsPesquisaComp1: TDataSource
    DataSet = dtListComp1Itens
    Left = 336
    Top = 312
  end
  object dsLinkNFs: TDataSource
    DataSet = dtListComp1Itens
    Left = 352
    Top = 248
  end
  object dsProdutos2: TDataSource
    DataSet = dtList
    Left = 600
    Top = 312
  end
  object lstProdutos: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from produtos p'
      
        'where p.exporta_dap = '#39'S'#39' and p.tipo_insumo = '#39'2'#39' and p.tipo = '#39 +
        'P'#39' and coalesce(p.ativo,'#39'S'#39') = '#39'S'#39)
    Left = 410
    Top = 280
    object IntegerField1: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBStringField1: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
    object lstProdutosGRUPO: TIntegerField
      FieldName = 'GRUPO'
      Origin = '"PRODUTOS"."GRUPO"'
    end
    object lstProdutosUNIDADE: TIntegerField
      FieldName = 'UNIDADE'
      Origin = '"PRODUTOS"."UNIDADE"'
    end
    object lstProdutosVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = '"PRODUTOS"."VALOR"'
    end
    object lstProdutosATIVO: TIBStringField
      FieldName = 'ATIVO'
      Origin = '"PRODUTOS"."ATIVO"'
      FixedChar = True
      Size = 1
    end
  end
  object dsProdutos: TDataSource
    DataSet = lstProdutos
    Left = 444
    Top = 312
  end
  object dsRegistroComp1: TDataSource
    DataSet = dtComp1Itens
    Left = 372
    Top = 312
  end
  object dtComp1Itens: TIBDataSet
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeInsert = dtComp1ItensBeforeInsert
    BeforePost = dtComp1ItensBeforePost
    DeleteSQL.Strings = (
      'delete from transporte_era_itens'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into transporte_era_itens'
      '  (CODIGO, PRODUTO1, PRODUTO2, QTDE, TRANSPORTE_ERA)'
      'values'
      '  (:CODIGO, :PRODUTO1, :PRODUTO2, :QTDE, :TRANSPORTE_ERA)')
    RefreshSQL.Strings = (
      'select t.* from transporte_era_itens t'
      'where t.codigo = :codigo')
    SelectSQL.Strings = (
      'select t.* from transporte_era_itens t'
      'where t.codigo = :codigo')
    ModifySQL.Strings = (
      'update transporte_era_itens'
      'set'
      '  CODIGO = :CODIGO,'
      '  PRODUTO1 = :PRODUTO1,'
      '  PRODUTO2 = :PRODUTO2,'
      '  QTDE = :QTDE,'
      '  TRANSPORTE_ERA = :TRANSPORTE_ERA'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.Field = 'CODIGO'
    GeneratorField.Generator = 'GEN_TRANSPORTE_ERA_ITENS_ID'
    GeneratorField.ApplyEvent = gamOnPost
    DataSource = dsLinkNFs
    Left = 373
    Top = 280
    object dtComp1ItensCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"TRANSPORTE_ERA_ITENS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtComp1ItensQTDE: TIntegerField
      FieldName = 'QTDE'
      Origin = '"TRANSPORTE_ERA_ITENS"."QTDE"'
      DisplayFormat = '###,##0.00'
    end
    object dtComp1ItensPRODUTO1: TIntegerField
      FieldName = 'PRODUTO1'
      Origin = '"TRANSPORTE_ERA_ITENS"."PRODUTO1"'
    end
    object dtComp1ItensPRODUTO2: TIntegerField
      FieldName = 'PRODUTO2'
      Origin = '"TRANSPORTE_ERA_ITENS"."PRODUTO2"'
    end
    object dtComp1ItensTRANSPORTE_ERA: TIntegerField
      FieldName = 'TRANSPORTE_ERA'
      Origin = '"TRANSPORTE_ERA_ITENS"."TRANSPORTE_ERA"'
    end
  end
  object dsPropriedade: TDataSource
    DataSet = lstPropriedade
    Left = 480
    Top = 312
  end
  object lstPropriedade: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      
        'select pp.codigo, coalesce(pp.insc_estadual,'#39#39')||'#39' ( '#39'||coalesce' +
        '(pp.nome,'#39#39')||'#39' )'#39' nome from propriedade pp'
      '')
    Left = 448
    Top = 280
    object lstPropriedadeCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PROPRIEDADE"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstPropriedadeNOME: TIBStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 75
    end
  end
  object dsOperacoes: TDataSource
    DataSet = lstOperacoes
    Left = 304
    Top = 309
  end
  object lstOperacoes: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from operacoes op'
      
        'where coalesce(tipo,'#39#39') = '#39'P'#39' and ((op.pec_dap_movto = 7) or (op' +
        '.pec_dap_movto = 1))')
    Left = 304
    Top = 277
    object lstOperacoesCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"OPERACOES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstOperacoesNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"OPERACOES"."NOME"'
      Size = 50
    end
    object lstOperacoesCONTA: TIntegerField
      FieldName = 'CONTA'
      Origin = '"OPERACOES"."CONTA"'
    end
    object lstOperacoesTIPO: TIBStringField
      FieldName = 'TIPO'
      Origin = '"OPERACOES"."TIPO"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesTIPO_MOVTO: TIBStringField
      FieldName = 'TIPO_MOVTO'
      Origin = '"OPERACOES"."TIPO_MOVTO"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesTIPO_FISCAL: TIBStringField
      FieldName = 'TIPO_FISCAL'
      Origin = '"OPERACOES"."TIPO_FISCAL"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesGERA_CREDITO_ICMS: TIBStringField
      FieldName = 'GERA_CREDITO_ICMS'
      Origin = '"OPERACOES"."GERA_CREDITO_ICMS"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesMOVIMENTA_ESTOQUE: TIBStringField
      FieldName = 'MOVIMENTA_ESTOQUE'
      Origin = '"OPERACOES"."MOVIMENTA_ESTOQUE"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesPERDA_CONSUMO: TIBStringField
      FieldName = 'PERDA_CONSUMO'
      Origin = '"OPERACOES"."PERDA_CONSUMO"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesVENDA_DIRETA: TIBStringField
      FieldName = 'VENDA_DIRETA'
      Origin = '"OPERACOES"."VENDA_DIRETA"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesENTRADA: TIBStringField
      FieldName = 'ENTRADA'
      Origin = '"OPERACOES"."ENTRADA"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesSAIDA: TIBStringField
      FieldName = 'SAIDA'
      Origin = '"OPERACOES"."SAIDA"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesINSUMOS: TIBStringField
      FieldName = 'INSUMOS'
      Origin = '"OPERACOES"."INSUMOS"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesINSUMOS_OUTROS_ANIMAIS: TIBStringField
      FieldName = 'INSUMOS_OUTROS_ANIMAIS'
      Origin = '"OPERACOES"."INSUMOS_OUTROS_ANIMAIS"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesTOTALIZA_RELATORIO_MOV_PRODUTO: TIBStringField
      FieldName = 'TOTALIZA_RELATORIO_MOV_PRODUTO'
      Origin = '"OPERACOES"."TOTALIZA_RELATORIO_MOV_PRODUTO"'
      FixedChar = True
      Size = 1
    end
    object lstOperacoesPEC_DAP_MOVTO: TSmallintField
      FieldName = 'PEC_DAP_MOVTO'
      Origin = '"OPERACOES"."PEC_DAP_MOVTO"'
    end
    object lstOperacoesCODIGO_TBL_DAP: TIntegerField
      FieldName = 'CODIGO_TBL_DAP'
      Origin = '"OPERACOES"."CODIGO_TBL_DAP"'
    end
  end
end
